program define sturng8
#delimit ;
if `1' { matrix StuRng81 = (
   .15509187, .01469669, -.00206506, .00007981 \
   .14975032, .01298877, -.00196402, .00008898 \
   .14444745, .01138799, -.00190496, .00010024 \
   .13919507, .00988415, -.00187778, .00011205 \
   .13401717, .00844911, -.00186479, .00012211 \
   .12893674, .00705744, -.00185069, .00012895 \
   .12396658, .00570017, -.00182893, .00013282)
};
else { matrix StuRng80 = (
   .65388453, .12419594, -.03531096, .00279332 \
   .45010099, .09869583, -.0242641,  .00174033 \
   .3505677,  .07786883, -.01704182, .00110187 \
   .29290411, .06387363, -.01281105, .0007633 \
   .25642321, .0543328,  -.010254,   .00057882 \
   .23495817, .04297656, -.00694565, .00028882 \
   .21689178, .03841136, -.00599072, .00023992 \
   .20463328, .03384613, -.00512302, .00020048 \
   .19491063, .03042382, -.00448108, .00017129 \
   .187555,   .02732566, -.00389356, .0001435 \
   .18186566, .02438295, -.0032293,  .0000892 \
   .17685942, .02241773, -.00290997, .00007563 \
   .17254552, .02095226, -.00274246, .00007831 \
   .16891721, .01965626, -.00258899, .00007869 \
   .1658351,  .01848787, -.00243966, .00007598 \
   .16315611, .01747572, -.00231551, .00007379 \
   .16078876, .01661661, -.00222224, .00007353 \
   .15867819, .01588652, -.00215512, .00007501 \
   .15678929, .01525376, -.0021047,  .00007728 \
   .15509187, .01469669, -.00206506, .00007981)
};
end;
